
package CSS::Preprocessor::Expression::Var;

use base qw(CSS::Preprocessor::Expression);
use strict;
use warnings;
use constant FIELDS => [qw(
    name
    expr
)];
use fields @{&FIELDS};

use Carp;

sub new {
    my ($class, $name, $expr) = @_;

    my $self = $class->SUPER::new();

    $self->{name} = $name;
    $self->{expr} = $expr;

    return $self;
}

sub _as_string_inner {
    return $_[0]->{name}." = ".$_[0]->{expr};
}

=head1 NAME

CSS::Preprocessor::Expression::Var - Class representing a variable

=cut

1;

